# read in age data
age <- read_csv(here::here("raw_data/age_data.csv")) %>% 
  clean_names()
age_by_date <- age %>% 
  mutate(
    year = str_extract(week_ending, "^\\d{4}"),
    monthday = str_extract(week_ending, "\\d{4}$"),
    month = str_extract(monthday, "^\\d{2}"),
    day = str_extract(monthday, "\\d{2}$"),
    date = ymd(str_c(year, month, day)), .after = 1
  )
age_date_clean <- age_by_date %>% 
  filter(!age_group=="All ages")
  
# create plot of admissions by age
ggplotly(age_date_clean %>%
  group_by(date, age_group) %>% 
  summarise(avg_admissions = mean(number_admissions)) %>% 
  ggplot() +
  aes(x = date, y = avg_admissions, colour = age_group) +
  geom_line() +
    labs(title = "Mean Admissions by Age Group",
         x = "Date",
         y = "Mean Admissions",
         colour = "") +
    theme_bw())
`summarise()` has grouped output by 'date'. You can override using the `.groups` argument.
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3J9CiMgcmVhZCBpbiBhZ2UgZGF0YQphZ2UgPC0gcmVhZF9jc3YoaGVyZTo6aGVyZSgicmF3X2RhdGEvYWdlX2RhdGEuY3N2IikpICU+JSAKICBjbGVhbl9uYW1lcygpCmBgYAoKYGBge3J9CiMgY3JlYXRlIGRheSwgbW9udGgsIHllYXIgYW5kIGRhdGUgY29sdW1ucwphZ2VfYnlfZGF0ZSA8LSBhZ2UgJT4lIAogIG11dGF0ZSgKICAgIHllYXIgPSBzdHJfZXh0cmFjdCh3ZWVrX2VuZGluZywgIl5cXGR7NH0iKSwKICAgIG1vbnRoZGF5ID0gc3RyX2V4dHJhY3Qod2Vla19lbmRpbmcsICJcXGR7NH0kIiksCiAgICBtb250aCA9IHN0cl9leHRyYWN0KG1vbnRoZGF5LCAiXlxcZHsyfSIpLAogICAgZGF5ID0gc3RyX2V4dHJhY3QobW9udGhkYXksICJcXGR7Mn0kIiksCiAgICBkYXRlID0geW1kKHN0cl9jKHllYXIsIG1vbnRoLCBkYXkpKSwgLmFmdGVyID0gMQogICkKYGBgCgoKYGBge3J9CmFnZV9kYXRlX2NsZWFuIDwtIGFnZV9ieV9kYXRlICU+JSAKICBmaWx0ZXIoIWFnZV9ncm91cD09IkFsbCBhZ2VzIikKICAKYGBgCgpgYGB7cn0KIyBjcmVhdGUgcGxvdCBvZiBhZG1pc3Npb25zIGJ5IGFnZQpnZ3Bsb3RseShhZ2VfZGF0ZV9jbGVhbiAlPiUKICBncm91cF9ieShkYXRlLCBhZ2VfZ3JvdXApICU+JSAKICBzdW1tYXJpc2UoYXZnX2FkbWlzc2lvbnMgPSBtZWFuKG51bWJlcl9hZG1pc3Npb25zKSkgJT4lIAogIGdncGxvdCgpICsKICBhZXMoeCA9IGRhdGUsIHkgPSBhdmdfYWRtaXNzaW9ucywgY29sb3VyID0gYWdlX2dyb3VwKSArCiAgZ2VvbV9saW5lKCkgKwogICAgbGFicyh0aXRsZSA9ICJNZWFuIEFkbWlzc2lvbnMgYnkgQWdlIEdyb3VwIiwKICAgICAgICAgeCA9ICJEYXRlIiwKICAgICAgICAgeSA9ICJNZWFuIEFkbWlzc2lvbnMiLAogICAgICAgICBjb2xvdXIgPSAiIikgKwogICAgdGhlbWVfYncoKSkKYGBgCgo=